prolog './g620a.ijs'
NB. ^@o. ----------------------------------------------------------------

(^o.z) -: ^@o. z=:  0 j.  0.5 * i.5 4
(^o.z) -: ^@o. z=:  1 j.  0.5 * i.5 4
(^o.z) -: ^@o. z=: 20 j.  0.5 * i.5 4

(^o.z) -: ^@o. z=:  0 j. _0.5 * i.5 4
(^o.z) -: ^@o. z=:  1 j. _0.5 * i.5 4
(^o.z) -: ^@o. z=: 20 j. _0.5 * i.5 4

(^o.z) -: ^@o. z=:  0 j. 10 +  0.5 * i.5 4
(^o.z) -: ^@o. z=:  1 j. 10 +  0.5 * i.5 4
(^o.z) -: ^@o. z=: 20 j. 10 +  0.5 * i.5 4

(^o.z) -: ^@o. z=:  0 j. 10 + _0.5 * i.5 4
(^o.z) -: ^@o. z=:  1 j. 10 + _0.5 * i.5 4
(^o.z) -: ^@o. z=: 20 j. 10 + _0.5 * i.5 4

(^o.z) -: ^@o. z=: 0 j. 0.33333 _0.33333

(^o.x) -: ^@o. x=: _0.5 + 23 ?@$ 0
(^o.x) -: ^@o. x=: x: %/ 0.01 * 1+ 2 37 ?@$ 1000

'domain error' -: ^@o. etx 'abc'
'domain error' -: ^@o. etx <3j4




epilog''

